home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / DBASE_UT / TPDB335 / PACK.PAS < prev    next >
Pascal/Delphi Source File  |  1993-11-26  |  3KB  |  64 lines
  1. {$A+,B-,D+,E-,F-,I-,L-,N-,O-,R-,S-,V-}
  2. {$M 16384,0,655360}
  3.  
  4. program PackFile;
  5.                            (***********************************)
  6.                            (*               TPDB              *)
  7.                            (***********************************)
  8.                            (*         Object -Oriented        *)
  9.                            (*    Borland/Turbo Pascal Units   *)
  10.                            (*    for Accessing dBASE III      *)
  11.                            (*             files.              *)
  12.                            (*      Copyright 1988 - 1993      *)
  13.                            (*          Brian Corll            *)
  14.                            (*       All Rights Reserved       *)
  15.                            (***********************************)
  16.                            (*            FREEWARE             *)
  17.                            (***********************************)
  18.                            (*     dBASE is a registered       *)
  19.                            (* trademark of Borland Int. Inc.  *)
  20.                            (*   Version 3.35  November, 1993  *)
  21.                            (***********************************)
  22.                            (*   Portions Copyright 1984,1991  *)
  23.                            (*    Borland International Corp.  *)
  24.                            (***********************************)
  25.  
  26. uses
  27.     Crt, TPDB, TPDBScrn, TPDBStr;
  28.  
  29. var
  30.     Message: string [80];
  31.     RecCount: string;
  32.     Packer: DataObject;
  33.  
  34. begin
  35.     CursorOff;
  36.     if ParamCount = 0 then begin
  37.         Beep;
  38.         ClrScr;
  39.         Flash(1, 1, LightGreen + BlackBG, 'PACK filename.dbf');
  40.         CursorOn;
  41.         Halt(1);
  42.     end;
  43.     New(Packer, Init(ParamStr(1)));
  44.     if Packer^.TotalRecs = 0 then begin
  45.         ClrScr;
  46.         Beep;
  47.         Message := 'Record count in file ' + Upper(ParamStr(1)) + ' is ZERO.';
  48.         Flash(1, 1, LightGreen + BlackBG, Message);
  49.         CursorOn;
  50.         Halt(1);
  51.     end;
  52.     ClrScr;
  53.     Message := 'PACKing file ' + Upper(ParamStr(1));
  54.     FlashC(11, Yellow + BlackBG, Message);
  55.     Packer^.Pack;
  56.     Str(Packer^.TotalRecs: 10, RecCount);
  57.     FlashC(12, LightGreen + BlackBG, 'File has been packed.');
  58.     Message := 'Current record count in file ' + Upper(ParamStr(1)) + ' is ' + LTrim(RecCount);
  59.     FlashC(13, LightCyan + BlackBG, Message);
  60.     FlashC(14, White + BlackBG, 'Copyright 1988 - 1993 Brian Corll');
  61.     Dispose(Packer, Done);
  62.     CursorOn;
  63. end.
  64.